home *** CD-ROM | disk | FTP | other *** search
/ Space & Astronomy / Space and Astronomy (October 1993).iso / mac / programs / space / AA_51.ZIP / ZATAN2.C < prev   
C/C++ Source or Header  |  1988-02-22  |  1KB  |  85 lines
  1. /*                            atan2()
  2.  *
  3.  *    Quadrant correct inverse circular tangent
  4.  *
  5.  *
  6.  *
  7.  * SYNOPSIS:
  8.  *
  9.  * double x, y, z, atan2();
  10.  *
  11.  * z = atan2( x, y );
  12.  *
  13.  *
  14.  *
  15.  * DESCRIPTION:
  16.  *
  17.  * Returns radian angle between 0 and +2pi whose tangent
  18.  * is y/x.
  19.  *
  20.  *
  21.  *
  22.  * ACCURACY:
  23.  *
  24.  * See atan.c.
  25.  *
  26.  */
  27.  
  28.  
  29. /*
  30. Cephes Math Library Release 2.0:  April, 1987
  31. Copyright 1984, 1987 by Stephen L. Moshier
  32. Direct inquiries to 30 Frost Street, Cambridge, MA 02140
  33. Certain routines from the Library, including this one, may
  34. be used and distributed freely provided this notice is retained
  35. and source code is included with all distributions.
  36. */
  37.  
  38.  
  39. extern double PI;
  40.  
  41. double zatan2( x, y )
  42. double x, y;
  43. {
  44. double z, w;
  45. short code;
  46. double atan();
  47.  
  48.  
  49. code = 0;
  50.  
  51. if( x < 0.0 )
  52.     code = 2;
  53. if( y < 0.0 )
  54.     code |= 1;
  55.  
  56. if( x == 0.0 )
  57.     {
  58.     if( code & 1 )
  59.         return( 1.5*PI );
  60.     if( y == 0.0 )
  61.         return( 0.0 );
  62.     return( 0.5*PI );
  63.     }
  64.  
  65. if( y == 0.0 )
  66.     {
  67.     if( code & 2 )
  68.         return( PI );
  69.     return( 0.0 );
  70.     }
  71.  
  72.  
  73. switch( code )
  74.     {
  75.     case 0: w = 0.0; break;
  76.     case 1: w = 2.0 * PI; break;
  77.     case 2:
  78.     case 3: w = PI; break;
  79.     }
  80.  
  81. z = atan( y/x );
  82.  
  83. return( w + z );
  84. }
  85.